home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / shape.dxr / 00474.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  1.8 KB  |  72 lines
  1. on mouseWithin me
  2.   if sprite(84).visible <> 1 then
  3.     set the memberNum of sprite 102 to member("arrowHigh")
  4.   else
  5.     set the memberNum of sprite 102 to member("arrowGrey")
  6.     set the blend of sprite 102 to 50
  7.   end if
  8. end
  9.  
  10. on mouseDown me
  11.   global selectedOne, Nothingselected
  12.   if sprite(84).visible = 1 then
  13.     set the memberNum of sprite 102 to member("arrowGrey")
  14.   else
  15.     if sprite(85).visible = 1 then
  16.       selectedOne = 84
  17.       switchit()
  18.       moveit()
  19.       sprite(84).visible = 1
  20.     else
  21.       if sprite(86).visible = 1 then
  22.         selectedOne = 85
  23.         switchit()
  24.         moveit()
  25.         sprite(85).visible = 1
  26.       else
  27.         if sprite(87).visible = 1 then
  28.           selectedOne = 86
  29.           switchit()
  30.           moveit()
  31.           sprite(86).visible = 1
  32.         else
  33.           if sprite(88).visible = 1 then
  34.             selectedOne = 87
  35.             switchit()
  36.             moveit()
  37.             sprite(87).visible = 1
  38.           else
  39.             if sprite(89).visible = 1 then
  40.               selectedOne = 88
  41.               switchit()
  42.               moveit()
  43.               sprite(88).visible = 1
  44.             else
  45.               if sprite(89).visible = 0 then
  46.                 sprite(89).visible = 1
  47.                 selectedOne = 89
  48.                 switchit()
  49.                 moveit()
  50.               end if
  51.             end if
  52.           end if
  53.         end if
  54.       end if
  55.     end if
  56.   end if
  57.   Nothingselected = 1
  58.   repeat with X = 136 to 150
  59.     sprite(X).blend = 100
  60.   end repeat
  61.   set the memberNum of sprite 141 to member("tanBlank")
  62.   set the memberNum of sprite 143 to member("tanPlus")
  63.   set the memberNum of sprite 144 to member("tanMinus")
  64. end
  65.  
  66. on mouseLeave me
  67.   if sprite(84).visible <> 1 then
  68.     set the memberNum of sprite 102 to member("arrowReg")
  69.   end if
  70.   selectedOne = sprite(the clickOn)
  71. end
  72.